home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / OInterfaces / Disks.mod < prev    next >
Encoding:
Text File  |  1995-08-10  |  2.1 KB  |  79 lines  |  [TEXT/MPS ]
  1. (*
  2.      File:        Disks.mod
  3.  
  4.      Contains:    Disk Driver Interfaces.
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Package:    Universal Interfaces 2.0 in “MPW Latest” on ETO #17
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs.applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. *)
  19.  
  20. (*$TAGS-*)
  21. (*$CALLING PASCAL*)
  22. MODULE Disks;
  23.  
  24. IMPORT SYSTEM, Types, OSUtils;
  25.  
  26. (* $PUSH*)
  27. (* $ALIGN MAC68K*)
  28. (* $LibExport+*)
  29.  
  30. CONST
  31.     sony*                        = 0;
  32.     hard20*                        = 1;
  33.  
  34.  
  35. TYPE
  36.     DrvSts* = RECORD
  37.         track*:                    INTEGER;                                (* current track *)
  38.         writeProt*:                Types.SignedByte;                                (* bit 7* = 1 if volume is locked *)
  39.         diskInPlace*:            Types.SignedByte;                                (* disk in drive *)
  40.         installed*:                Types.SignedByte;                                (* drive installed *)
  41.         sides*:                    Types.SignedByte;                                (* -1 for 2-sided, 0 for 1-sided *)
  42.         qLink*:                    OSUtils.QElemPtr;                                (* next queue entry *)
  43.         qType*:                    INTEGER;                                (* 1 for HD20 *)
  44.         dQDrive*:                INTEGER;                                (* drive number *)
  45.         dQRefNum*:                INTEGER;                                (* driver reference number *)
  46.         dQFSID*:                    INTEGER;                                (* file system AIFF.ID *)
  47.         (*ΔΔ CASE INTEGER OF
  48.         0: ( *)
  49.     END;
  50.     DrvStsSony* = RECORD(DrvSts)
  51.             twoSideFmt*:                    Types.SignedByte;                            (* after 1st rd/wrt: 0=1 side, -1=2 side *)
  52.             needsFlush*:                    Types.SignedByte;                            (* -1 for MacPlus drive *)
  53.             diskErrs*:                    INTEGER;                            (* soft error count *)
  54.            (*ΔΔ );
  55.         1: ( *)
  56.     END;
  57.     DrvStsHD20* = RECORD(DrvSts)
  58.             driveSize*:                    INTEGER;
  59.             driveS1*:                    INTEGER;
  60.             driveType*:                    INTEGER;
  61.             driveManf*:                    INTEGER;
  62.             driveChar*:                    INTEGER;
  63.             driveMisc*:                    Types.SignedByte;
  64.            (*ΔΔ );*)
  65.     END;
  66.  
  67.  
  68. PROCEDURE DiskEject*(drvNum: INTEGER): Types.OSErr;
  69.     EXTERNAL PASCAL;
  70. PROCEDURE SetTagBuffer*(buffPtr: (*ΔΔUNIVΔΔ*) Types.Ptr): Types.OSErr;
  71.     EXTERNAL PASCAL;
  72. PROCEDURE DriveStatus*(drvNum: INTEGER; VAR status: DrvSts): Types.OSErr;
  73.     EXTERNAL PASCAL;
  74.  
  75. (* $ALIGN RESET*)
  76. (* $POP*)
  77.  
  78.  END Disks.
  79.